home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr10 / tvprompt.zip / LETTERS.PKG < prev    next >
Text File  |  1992-04-08  |  512b  |  15 lines
  1. with System,
  2.      Altslice;
  3.  
  4. package body Letters is
  5. -- Copyright 1992 Tom Moran
  6.  
  7. begin
  8.   -- get 8x8 CGA character set from ROM
  9.   Altslice.Movmem(Source      => (Segment => 16#F000#, Offset => 16#FA6E#),
  10.                   Destination => Pattern(Pattern'first(1),
  11.                                          Pattern'first(2)
  12.                                         )'Address,
  13.                   N_Bytes     => System.Word(Pattern'size/8));
  14. end Letters;
  15.